home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / feb94 / lc2fig11.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  61KB  |  549x429  |  8-bit (256 colors)
Labels: text | electronics | screenshot | display | software | number | font
OCR: SORTFLTR :: btnOk :: pushButton* method pushButton(var eventInfo Event) var dyMastRec vPassDynArray endVar ; Make sure value in field isn't blank. if fldSortOrder.isBlank() then fldSortOrder - 1stSortOrder.list.value endIf ; If the record is new or is being edited and hasn't been posted, then ; switching the index might fail if the record can't be posted. if uiMastTable.switchIndex(dyIndexes[fldSortOrder], True) then if fldFilterToggle = "Filter Off" then fCaller.setFilter() else DoFilter() ; Create filter command endIf dySortInfo["Index"] = fldSortOrder dySortInfo["Filter"] = iif(fldFilterToggle = "Filter off","None", String(txtFilterValue)) endIf ; Update the values in the calling form's dySortInfo array fCaller.boxSpeedBar.btnSortFilter.PutInfo(dySortInfo) tcMast.close() ; Close the TCursor FormReturn( ) endMethod Edit Line: 11 Col: 1